Top 10k strings from Course Winner v3 Plus - National Hunt (1987)(Selec Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
9 "________________________________"
5 "________________________________":
3 COURSENO=0
3 C$(COURSENO);U$;" ";RACELENGTH;" ";G$:
3 (X$)<HORSE
3 "X to exit, ENTER to continue A number to change an entry ";x$:
3 "Press ENTER...";X$
3 "Press ENTER...";Q$:
2 X;"... ";:
2 V3=P(S(H)):
2 TTL=TTL+P(X)
2 STARS=P((S(H)))*Z
2 R$=K$(S(H),3
2 PROB=PROB*M(1
2 PROB=PROB*G(ODER+1
2 P(X)=P(X)*FACTOR
2 E$=F$(COURSENO)(1
2 B(COURSENO,X,1
2 );K$(S(H),3
2 );J$(B(COURSENO,X,1
2 );"calc form profit"
2 );"RATING":
2 "runner odds sp rating level"
2 "Y FOR YES ENTER FOR NO..";Q$:
2 "X to exit":
2 "Send to printer..Y/N..";Q$:
2 "Race Ref No please...";x$:
2 "RUNNER JKY TRNER TPM SPM":
2 "Press ENTER...";x$:
2 "Press ENTER...";X$:
2 "PRESS ENTER...";X$:
2 "PRESS ENTER...";X$
2 "CHANGE NUMBER...";X:
2 "A=add new name, C=change ";x$
2 " RUNNER(Wt) DRAW SP 1 2 3":
1 Y=B(COURSENO,X,2
1 Y=B(COURSENO,X,1
1 Y$(H,O)=I$
1 X;" ";J$(X):
1 V$=Y$(H,Z):
1 V$=G$+" ":
1 TTL=TTL+R(X)
1 TTL=TTL+E(X)
1 T$(X);" ";:
1 T$(LS);"ADDED = No.";LS:
1 T$(LASTT,15
1 T$(B(COURSENO,X,2
1 T
1 S(X)=K(X,9
1 S(X)=K(X,3
1 S(X)=K(X,2
1 S(X)=K(X,1
1 S(J)=S(J+1
1 S$="100-1"
1 RACELENGTH=K(3
1 RACELENGTH=0
1 RACELENGTH=
1 RACELENGTH<5
1 R(X)=R(X)*FACTOR
1 R ARNOTT P BARTON R J BEGGAN D BENNEYWTH M BOWLBY G BRADLEY M BRENNAN C BROWN D BROWNE J BRYAN A CARROLL G CLS-JONES PA CHARLTN S CHARLTON N COLEMAN D CONDELL P CORRIGAN C COWLEY C COX R CRANK P CROUCHER H DAVIES T DAVIS B DE HAAN P DEVER K DOOLAN P DOUBLE N DOUGHTY A DUDGEON J DUGGAN P J DUN T G DUN R DUNWOODY D DUTTON M DWYER R EARNSHAW T EASTERBY C FAIRHURST S FRENCH J FROST R GOLDSTEIN C GRANT T GRANTHAM P GREENALL M HAMMOND J HANSEN G HARKER L HARVEY C HAWKINS P HOBBS S HOLLAND R G HUGHES S JOHNSON S KEIGHLEY C KINANE S KNIGHT R LAMB S LAWRENCE P LEACH R LINLEY J LOWER D MCTAGGRT C MANN G MCCOURT S MCNEILL M MEAGHER G MERNAGH R MILLMAN K
1 R AKEHURST R C ARMYTGE A BAILEY K C BAILEY J H BAKER G B BALDING D H BARONS T T BILL V R BISHOP K BISHOP Mrs J BLOOM J W BLUNDLL D BURCHELL Rex CARTER E CARTER R CHAMPION M C CHAPMAN J CHARLTON B CHARNLEY S CHRISTIAN W CLAY N F CRUMP P DAVIS M DICKINSON J E DIXON P DUFOSEE M H EASTRBY M W EASTRBY M W ECKLEY J A EDWRDS DRC ELSWRTH T FAIRHURST R F FISHER JG FITZGRLD T A FORSTER J C FOX R G FROST DR GANDOLFO N A GASELEE J T GIFFORD J GOODFELLW DM GRISSELL J S HALDANE T B HALLETT W HAMILTON H B HAMILTN P D HAYNES NJ HENDERSN A R HEWITT R J HODGES W HOLDEN R J HOLDER R HOLLINSHD C HOLMES A P JARVIS JM JEFFERSN J R JENKINS F JORDAN L G KENNARD J S KING M J LAMBERT F H LEE D LEE J P LEIGH AH MCTAGGRT R McDONALD W W McGHIE S MELLOR P
1 PROB=PROB*M(
1 PROB=PROB*0.3
1 PREFERED=(HORSE-1
1 P(X)=P(X)*R(X)
1 P(X)=P(X)*E(X):
1 P(X)=P(X)*CORRECT
1 P(H)=P(H)*(1
1 O(X)=P(X):
1 O(S(J))<O(S(J+1
1 N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N
1 K$(HORSE,5
1 J$(LS);"ADDED = No.";LS:
1 J$(LASTJ,15
1 J
1 HORSE=HX+1
1 HORSE;" ";
1 H$=F$(COURSENO)
1 G$=F$(COURSENO)(Y
1 F$(LASTC,6
1 F$(COURSENO)="N"
1 F$(COURSENO)(X+1
1 F
1 E(X)=E(X)*FACTOR
1 DV=RACELENGTH:
1 DV=D(H,Z):
1 Created with Ramsoft MakeTZX
1 CW3
1 COURSENO=X
1 COURSENO=K(2
1 C$(LASTC,12
1 C$(COURSENO);U$;:
1 C$(COURSENO);")"
1 C$(COURSENO);" ";U$:
1 C !
1 B(LASTC,10
1 B(COURSENO,X,2
1 B
1 Ascot Ayr Bangor Carlisle Cartmel Catterick Cheltenham Chepstow Devon & ExetDoncaster Edinburgh Fakenham Folkestone Fontwell Pk Haydock Hereford Hexham Huntingdon Kelso Kempton Leicester Lingfield Liverpool Ludlow Market RasenNewbury Newcastle Newton AbbotNottingham Perth Plumpton Sandown Sedgefield Southwell Stratford Taunton Towcester Uttoxeter Warwick Wetherby Wincanton Windsor WolverhamptoWorcester
1 =,0.000001
1 ;C$(COURSENO):
1 ;B(COURSENO,X,2
1 ;"________________________________"
1 ;"_______________________________"
1 ;"Todays going..";:
1 ;"NO RACE DETAILS KNOWN":
1 ;"NO COURSE HAS BEEN SELECTED":
1 ;"LOADING DATAFILES":
1 ;"INPUT RACE INFORMATION":
1 ;"Draw favoured..";:
1 ;"ANALYSING Please wait"
1 ;"(";K$(H,1
1 ;" ";C$(COURSENO)
1 ;" TRAINERS LISTED (MAX ";LASTT;")":
1 ;" Name JKY TRNER"
1 ;" JOCKEYS";
1 ;" JOCKEYS LISTED (MAX ";LASTJ;")":
1 ;" "
1 ;" "
1 ;" ":
1 ;" "
1 +(T(H)/100
1 )>(HORSE-1
1 )=RACELENGTH:
1 )=COURSENO:
1 )=COURSENO
1 )<PREFERED)
1 );T$(B(COURSENO,X,2
1 );"correction":
1 );"X....EXIT"
1 );"V....VIEW INFORMATION":
1 );"TRAINERS "
1 );"T....change/add to Trainers":
1 );"SAVE NEW INFO DATA FILES"
1 );"SAVE CURRENT RACE DATA":
1 );"S....SAVE new info to tape":
1 );"S....SAVE CURRENT RACE DATA"
1 );"P....PRICES":
1 );"NO RACE LOGGED":
1 );"N....LOG A NEW RACE"
1 );"LOAD RACE DATA":
1 );"LEADING JOCKEYS"
1 );"L....LOAD RACE DATA":
1 );"J....change/add to Jockeys":
1 );"I....INPUT RACE INFORMATION":
1 );"D....CHANGE JKY/TRNER DATA":
1 );"Copyright SELEC 1987":
1 );"COURSEWINNER V3 PLUS":
1 );"CHANGE TRAINERS":
1 );"CHANGE JOCKEYS/TRAINERS":
1 );"CHANGE JOCKEYS":
1 );"CHANGE JKY/TRNER INFO":
1 );"C....change course info":
1 );"C....COURSES":
1 );"B....ADJUST BIASING":
1 );"ANALYSIS":
1 );"ADJUST BIAS":
1 );"A....ANALYSE CURRENT DATA":
1 );"6...EXIT TO MENU"
1 );"5...VIEW INFORMATION":
1 );"4...SPEED FACTORS":
1 );"3...PRIZE MONEY/3 RACE FORM":
1 );"2...JKY/TRNER INFO":
1 );"1...DRAW/WT/PLACINGS":
1 );"*** LOG NEW RACE ***":
1 );"(";K$(H,1
1 )-PREFERED)
1 )+V(H,Z)/PV)
1 (X$)>LASTC)
1 (S(X)*HX/MO2):
1 (RACELENGTH)=F$(COURSENO)(X
1 (I$)<LASTT+1
1 (I$)<LASTJ+1
1 "m/d conversion...(X to EXIT)..":
1 "conversion complete":
1 "_______________________________":
1 "________"
1 "X to exit, ENTER to cont.";X$:
1 "X to exit, ENTER to cont ";X$
1 "X to exit ENTER to continue..";x$:
1 "Wt carried............ ";:
1 "WEIGHT CARRIED......(";I(7
1 "Value to winner........";:
1 "Type ref. numbers if represented":
1 "Type adjusted biasing":
1 "Type M for microdrive...":
1 "Total prize money........ ";:
1 "TYPE COURSE NUMBER...";X$:
1 "TOTAL PRIZE MONEY...(";I(1
1 "THREE RACE FORM.....(";I(3
1 "Seasons prize money...... ";:
1 "STALL EFFECT........(";I(10
1 "SPEED FACTOR 3......(";I(6
1 "SPEED FACTOR 2......(";I(5
1 "SPEED FACTOR 1......(";I(4
1 "SPEED FACTOR (";X;")... ";:
1 "SEASONS PRIZE MONEY.(";I(2
1 "Record/Play on tape..."
1 "Race time.....";U$
1 "Race length in furlongs....";A$:
1 "Press a key if prompted.."
1 "Press PLAY on tape..."
1 "Press ENTER...";Q$
1 "Please give leading TRAINER Nos.":
1 "Please give leading JOCKEY Nos.":
1 "Placing................";:
1 "Overweight..(lbs)..... ";:
1 "OUTING ";O:
1 "No. of outings.(max 3)... ";:
1 "Names of runners...(F to end)..."
1 "NOT KNOWN"
1 "NONE LOGGED)"
1 "Last three placings... ";:
1 "LEADING TRAINERS....(";I(9
1 "LEADING TRAINERS";
1 "LEADING JOCKEYS.....(";I(8
1 "Input details...":
1 "Going (F,GF,G,GS,S)....";:
1 "GOOD TO SOFT":
1 "GOOD TO FIRM":
1 "GOING..(F,G,S,GF,GS)...";G$:
1 "Enter speed rating (up to 3)":
1 "ENTER NEW NAME...";T$(X):
1 "ENTER NEW NAME...";T$(LS):
1 "ENTER NEW NAME...";J$(X):
1 "ENTER NEW NAME...";J$(LS):
1 "Draw.................. ";:
1 "Distance in furlongs...";:
1 "Course (number) please...";X$
1 "COURSE... ";
1 "CONVERTING...":
1 "Allowance...(lbs)..... ";:
1 "=CHANGED TO ";T$(X):
1 "=CHANGED TO ";J$(X):
1 "3 RACE FORM"
1 "(ENTER to leave unchanged)":
1 " LOADED":
1 " (Previous race will be erased)"
1 " ":